home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir42
/
card_ce.zip
/
LISTA.PRG
< prev
next >
Wrap
Text File
|
1994-08-24
|
4KB
|
215 lines
stor spac(15) to compp
stor spac(4) to yearp
set color to r+
@ 08,20 say 'Company Name ...............'
@ 10,20 say 'Year ....'
@ 12,20 say 'Both'
@ 14,20 say 'All'
set color to w+
@ 02,30 say 'SEARCH CARDS FOR LIST'
set color to gr+
@ 08,20 say 'C'
@ 10,20 say 'Y'
@ 12,20 say 'B'
@ 14,20 say 'A'
stor ' ' to op, op2, op3, m
set color to g+
@ 22,01 say 'Press <F10> to Main Menu '
set color to gr+
@ 22,49 say 'Your choice' get op
set color to g+
read
set color to r+
@ 16,20 say 'Printer - Screen'
set color to gr+
@ 16,20 say 'P'
@ 16,30 say 'S'
if uppe(op) = "Q"
clear gets
return
endif
if uppe(op) = "C"
@ 08,20 say 'Company Name ' get compp pict '!!!!!!!!!!!!!!!'
@ 10,20 say ' '
set color to gr+
read
endif
if uppe(op) = "Y"
@ 08,20 say ' '
@ 10,20 say 'Year ' get yearp
set color to gr+
read
endif
if uppe(op) = "B"
@ 08,20 say 'Company Name ' get compp pict '!!!!!!!!!!!!!!!'
@ 10,20 say 'Year ' get yearp
set color to gr+
read
endif
set color to g+
@ 22,49 say 'Your choice to list ' get op2
read
stor 1 to pag
stor 2 to xx
if uppe(op2) = 'P'
use card index anocar
reindex
@ 05,01 clear to 18,78
@ 21,01 clear to 22,78
set color to rb+
stor ' ' to pri
@ 11,10 say 'Set your printer and press <Enter> or <Q> to quit ' get pri
read
if uppe(pri) = 'Q'
clear all
close all
return
endif
if uppe(op) = 'A'
goto reco 1
endif
if uppe(op) = 'C'
loca for comp = compp
endif
if uppe(op) = 'Y'
locate for year = yearp
endif
if uppe(op) = 'B'
locate for comp=compp .and. year=yearp
endif
set devi to prin
do while op3 <> 'q'
if uppe(op) = 'C' .and. xx=2
@ 00,00 say 'All cards for ' + compp
endif
if uppe(op) = 'A' .and. xx=2
@ 00,00 say 'All cards registerd'
endif
if uppe(op) = 'Y' .and. xx=2
@ 00,00 say 'All cards for ' + yearp
endif
if uppe(op) = 'B' .and. xx=2
@ 00,00 say 'All cards for ' + trim(compp) + ' ' + yearp
endif
if uppe(op) = 'C'
if comp = compp
@ xx,01 say year + ' - ' + trim(fname) + ' ' + lname
@ xx,40 say team + cardn
xx = xx +1
endif
endif
if uppe(op) = 'Y'
if year = yearp
@ xx,01 say year + ' - ' + trim(fname) + ' ' + lname
@ xx,40 say team + cardn
xx = xx +1
endif
endif
if uppe(op) = 'A'
@ xx,01 say year + ' - ' + trim(fname) + ' ' + lname
@ xx,40 say team + cardn
xx = xx +1
endif
if uppe(op) = 'B'
if comp=compp .and. year=yearp
@ xx,01 say year + ' - ' + trim(fname) + ' ' + lname
@ xx,40 say team + cardn
xx = xx +1
endif
endif
if xx >= 58
xx=2
@ 59,30 say 'Page - ' + str(pag)
pag=pag+1
endif
if .not. eof()
skip
endif
if eof() .and. xx <= 58
@ 59,30 say 'Page - ' + str(pag)
pag=pag+1
endif
if eof()
@ 59,00 say ' '
set devi to scre
@ 21,01 say 'End of File, press any key to Main Menu' get m
read
stor 'q' to op3
endif
enddo
endif
set devi to scre
if uppe(op2) = 'S'
use card index anocar
reindex
@ 05,01 clear to 18,78
@ 21,01 clear to 22,78
set color to rb+
@ 04,01 say 'Year'
@ 04,08 say 'Player Name'
@ 04,40 say 'Team'
@ 04,55 say 'Card #'
set color to g+
stor 5 to xx
if uppe(op) = 'A'
goto reco 1
endif
if uppe(op) = 'C'
loca for comp = compp
endif
if uppe(op) = 'Y'
locate for year = yearp
endif
if uppe(op) = 'B'
locate for comp=compp .and. year=yearp
endif
do while op3 <> 'q'
if uppe(op) = 'A'
@ xx,01 say year + ' - ' + trim(fname) + ' ' + lname
@ xx,40 say team + cardn
xx = xx +1
endif
if uppe(op) = 'C'
if comp = compp
@ xx,01 say year + ' - ' + trim(fname) + ' ' + lname
@ xx,40 say team + cardn
xx = xx +1
endif
endif
if uppe(op) = 'Y'
if year = yearp
@ xx,01 say year + ' - ' + trim(fname) + ' ' + lname
@ xx,40 say team + cardn
xx = xx +1
endif
endif
if uppe(op) = 'B'
if comp=compp .and. year=yearp
@ xx,01 say year + ' - ' + trim(fname) + ' ' + lname
@ xx,40 say team + cardn
xx = xx +1
endif
endif
if xx >= 19
@ 21,01 say 'Press <ENTER> for more or "Q" to end' get m
read
if uppe(m) = 'Q'
stor 'q' to op3
endif
xx=5
@ 21,01 clear to 22,78
@ 05,01 clear to 18,78
endif
if .not. eof()
skip
endif
if eof()
@ 21,01 say 'End of File, press any key to Main Menu' get m
read
stor 'q' to op3
endif
enddo
endif
close all
return